home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
voyager7.exe
/
FROMASC.CC
< prev
next >
Wrap
Text File
|
1991-02-23
|
986b
|
37 lines
000D1 A.A = size-1
000DA start new object phase
000E1 D (characters remaining in line) = 64
000E4 B.A = size-1
000E6 A.A = adr of alloc str
000E9 D0 = adr of alloc str
000EC D0 = adr of new object (alloc str data)
000EF A.A = adr of new object
000F2 ...
000F5 adjust stack to new object
000F8 A = adr of orig str
000FB ...
000FE C = adr of checksum
00101 ...
00104 save checksum adr
00106 D1 = adr of orig str
00109 D1 = adr of orig str data
0010C count character in line
0010F go if not EOL
00112 reset D for new line (D=63)
00116 ...
00119 skip EOL character
0011C convert character to nibble
00141 store nibble into new object
00145 next nibble in new object
00148 next character in orig str
0014B decr characters remaining
0014D go if more
00150 exit if checksum in progress
00155 B.A = 3 (size of checksum - 1)
0015C ...
0015E C = adr of checksum
00160 D0 = adr of checksum data
00163 ...
00166 start of checksum phase
00169 go process checksum